#!/usr/bin/perl

sub trim {
   my($string)=@_;
   for ($string) {
       s/^\s+//;
       s/\s+$//;
   }
   return $string;
}

chomp(@shares = `./sf $ARGV[0] | grep "Disk" | cut -d " " -f 1`);
$lunghezza = @shares;
if ($lunghezza ne "0") {
	print "<b> Shares disponibili su @ARGV[0]: </b>\n";
}
foreach $riga(@shares) {
 chomp($riga);
#$riga = s/^ |\t|\n//;
 $riga2 = trim($riga);
 #print "\\\\$ARGV[0]\\$riga2\n";
#print "<div><a href=\"\\\\$ARGV[0]\\$riga2\">$riga2</a><div>\n";
print "<div><a href=\"samba.php?path=\\\\".$ARGV[0]."\\".$riga2."\" target=_blank>$riga2</a></div>\n";
}
if ($lunghezza ne "0") {
	print "<div><br></div>\n";
}
